#!/usr/bin/perl

package Const;

require Exporter;

our @ISA = qw(Exporter);

our @EXPORT = qw(
    PADX
    PADY
    TEXTLEN
    FONTSIZE
    GOOD
    BAD
    $DBPATH
    $DBNAME
);

use strict;

use constant {
    PADX => 4,
    PADY => 4,
    TEXTLEN => 300,
    FONTSIZE => 13
};

use constant {
    GOOD => 0,
    BAD => 1
};

our $DBPATH = "D:/wwwroot/hr/data";
our $DBNAME = "nexans";

1;
